/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 11 code / The NetWork Project.sea / The NetWork Project / Examples (Sources) / NetSim / UToy.p

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 55 54 6f 79 2e 70 | 00 00 00 00 00 00 00 00 |..UToy.p|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 17 d1 00 | 00 01 ef a6 8a 3a 58 a6 |........|.....:X.|
|00000060| 8a 3a 58 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.:X.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ab e4 00 00 |........|........|
|00000080| 55 4e 49 54 20 55 54 6f | 79 3b 0d 7b a9 20 47 2e |UNIT UTo|y;.{. G.|
|00000090| 20 53 61 77 69 74 7a 6b | 69 2c 20 53 74 61 74 4c | Sawitzk|i, StatL|
|000000a0| 61 62 20 48 65 69 64 65 | 6c 62 65 72 67 20 31 39 |ab Heide|lberg 19|
|000000b0| 39 31 7d 0d 7b 46 69 6c | 65 20 55 54 6f 79 2e 20 |91}.{Fil|e UToy. |
|000000c0| 54 68 69 73 20 69 73 20 | 6a 75 73 74 20 61 20 74 |This is |just a t|
|000000d0| 6f 79 20 74 6f 20 67 69 | 76 65 20 73 6f 6d 65 74 |oy to gi|ve somet|
|000000e0| 68 69 6e 67 20 74 6f 20 | 63 6f 6d 6d 75 6e 69 63 |hing to |communic|
|000000f0| 61 74 65 7d 0d 49 4e 54 | 45 52 46 41 43 45 0d 0d |ate}.INT|ERFACE..|
|00000100| 09 55 53 45 53 0d 09 4d | 61 63 55 6e 69 74 73 2c |.USES..M|acUnits,|
|00000110| 7b 54 79 70 65 73 2c 20 | 51 75 69 63 6b 64 72 61 |{Types, |Quickdra|
|00000120| 77 2c 20 4f 53 49 6e 74 | 66 2c 20 54 6f 6f 6c 49 |w, OSInt|f, ToolI|
|00000130| 6e 74 66 2c 20 50 61 63 | 6b 49 6e 74 66 2c 20 53 |ntf, Pac|kIntf, S|
|00000140| 41 4e 45 2c 20 7d 7b 20 | 53 74 61 6e 64 61 72 64 |ANE, }{ |Standard|
|00000150| 20 49 6e 63 6c 75 64 65 | 73 7d 0d 09 53 74 64 54 | Include|s}..StdT|
|00000160| 6f 6f 6c 73 2c 20 47 65 | 6e 65 72 69 63 2c 4e 65 |ools, Ge|neric,Ne|
|00000170| 74 53 69 6d 47 6c 6f 62 | 61 6c 2c 68 69 73 74 6f |tSimGlob|al,histo|
|00000180| 67 72 61 6d 75 6e 69 74 | 3b 0d 0d 43 4f 4e 53 54 |gramunit|;..CONST|
|00000190| 0d 09 63 4d 61 78 54 6f | 79 44 61 74 61 20 3d 20 |..cMaxTo|yData = |
|000001a0| 31 30 30 30 3b 0d 54 59 | 50 45 0d 09 74 54 6f 79 |1000;.TY|PE..tToy|
|000001b0| 50 74 72 20 3d 20 5e 74 | 54 6f 79 52 65 63 6f 72 |Ptr = ^t|ToyRecor|
|000001c0| 64 3b 0d 09 74 54 6f 79 | 52 65 63 6f 72 64 20 3d |d;..tToy|Record =|
|000001d0| 20 52 45 43 4f 52 44 0d | 09 09 63 6f 6c 3a 20 52 | RECORD.|..col: R|
|000001e0| 47 42 43 6f 6c 6f 72 3b | 0d 09 09 69 64 3a 20 73 |GBColor;|...id: s|
|000001f0| 74 72 32 35 35 3b 0d 09 | 09 73 6f 72 74 65 64 3a |tr255;..|.sorted:|
|00000200| 62 6f 6f 6c 65 61 6e 3b | 0d 09 09 6d 69 6e 76 61 |boolean;|...minva|
|00000210| 6c 2c 6d 61 78 76 61 6c | 3a 72 65 61 6c 3b 0d 09 |l,maxval|:real;..|
|00000220| 09 6d 65 61 6e 2c 73 73 | 71 3a 65 78 74 65 6e 64 |.mean,ss|q:extend|
|00000230| 65 64 3b 0d 09 09 74 65 | 73 74 5f 73 74 61 74 3a |ed;...te|st_stat:|
|00000240| 65 78 74 65 6e 64 65 64 | 3b 0d 09 09 6e 72 44 61 |extended|;...nrDa|
|00000250| 74 61 3a 69 6e 74 65 67 | 65 72 3b 0d 09 09 64 61 |ta:integ|er;...da|
|00000260| 74 61 3a 20 41 52 52 41 | 59 5b 31 2e 2e 63 4d 61 |ta: ARRA|Y[1..cMa|
|00000270| 78 54 6f 79 44 61 74 61 | 5d 20 4f 46 20 72 65 61 |xToyData|] OF rea|
|00000280| 6c 3b 0d 09 45 4e 44 3b | 0d 0d 56 41 52 20 54 6f |l;..END;|..VAR To|
|00000290| 79 52 65 63 3a 20 74 54 | 6f 79 50 74 72 3b 0d 09 |yRec: tT|oyPtr;..|
|000002a0| 54 6f 79 53 65 65 64 3a | 65 78 74 65 6e 64 65 64 |ToySeed:|extended|
|000002b0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 74 54 6f 79 |;.PROCED|URE tToy|
|000002c0| 5f 69 6e 69 74 28 63 6f | 75 6e 74 3a 69 6e 74 65 |_init(co|unt:inte|
|000002d0| 67 65 72 29 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |ger);.PR|OCEDURE |
|000002e0| 74 54 6f 79 5f 6e 65 78 | 74 54 6f 79 28 47 65 6e |tToy_nex|tToy(Gen|
|000002f0| 65 72 61 74 6f 72 3a 6c | 6f 6e 67 69 6e 74 3b 63 |erator:l|ongint;c|
|00000300| 6f 75 6e 74 3a 69 6e 74 | 65 67 65 72 3b 56 41 52 |ount:int|eger;VAR|
|00000310| 20 54 6f 79 53 74 61 74 | 3a 65 78 74 65 6e 64 65 | ToyStat|:extende|
|00000320| 64 29 3b 0d 0d 46 55 4e | 43 54 49 4f 4e 20 74 54 |d);..FUN|CTION tT|
|00000330| 6f 79 5f 64 72 61 77 74 | 6f 79 28 50 52 4f 43 45 |oy_drawt|oy(PROCE|
|00000340| 44 55 52 45 20 44 72 61 | 77 57 68 61 74 54 6f 44 |DURE Dra|wWhatToD|
|00000350| 72 61 77 29 3a 20 50 69 | 63 48 61 6e 64 6c 65 3b |raw): Pi|cHandle;|
|00000360| 0d 50 52 4f 43 45 44 55 | 52 45 20 74 54 6f 79 5f |.PROCEDU|RE tToy_|
|00000370| 44 72 61 77 53 63 61 74 | 74 65 72 3b 0d 0d 09 49 |DrawScat|ter;...I|
|00000380| 4d 50 4c 45 4d 45 4e 54 | 41 54 49 4f 4e 0d 0d 50 |MPLEMENT|ATION..P|
|00000390| 52 4f 43 45 44 55 52 45 | 20 74 54 6f 79 5f 69 6e |ROCEDURE| tToy_in|
|000003a0| 69 74 28 63 6f 75 6e 74 | 3a 69 6e 74 65 67 65 72 |it(count|:integer|
|000003b0| 29 3b 0d 56 41 52 0d 09 | 69 3a 20 69 6e 74 65 67 |);.VAR..|i: integ|
|000003c0| 65 72 3b 0d 42 45 47 49 | 4e 0d 09 6e 65 77 28 54 |er;.BEGI|N..new(T|
|000003d0| 6f 79 52 65 63 29 3b 0d | 09 54 6f 79 53 65 65 64 |oyRec);.|.ToySeed|
|000003e0| 3a 3d 74 69 63 6b 43 6f | 75 6e 74 3b 09 7b 69 6e |:=tickCo|unt;.{in|
|000003f0| 69 74 69 61 6c 69 7a 65 | 20 72 61 6e 64 6f 6d 20 |itialize| random |
|00000400| 6e 75 6d 62 65 72 20 67 | 65 6e 65 72 61 74 6f 72 |number g|enerator|
|00000410| 7d 0d 09 49 46 20 54 6f | 79 52 65 63 3c 3e 4e 49 |}..IF To|yRec<>NI|
|00000420| 4c 20 54 48 45 4e 0d 09 | 57 49 54 48 20 54 6f 79 |L THEN..|WITH Toy|
|00000430| 52 65 63 5e 20 44 4f 0d | 09 42 45 47 49 4e 0d 09 |Rec^ DO.|.BEGIN..|
|00000440| 09 49 46 20 63 6f 75 6e | 74 20 3c 20 63 4d 61 78 |.IF coun|t < cMax|
|00000450| 54 6f 79 44 61 74 61 20 | 54 48 45 4e 20 6e 72 44 |ToyData |THEN nrD|
|00000460| 61 74 61 3a 3d 63 6f 75 | 6e 74 0d 09 09 45 4c 53 |ata:=cou|nt...ELS|
|00000470| 45 20 63 6f 75 6e 74 3a | 3d 63 4d 61 78 54 6f 79 |E count:|=cMaxToy|
|00000480| 44 61 74 61 3b 0d 09 09 | 57 49 54 48 20 63 6f 6c |Data;...|WITH col|
|00000490| 20 44 4f 0d 09 09 42 45 | 47 49 4e 0d 09 09 09 72 | DO...BE|GIN....r|
|000004a0| 65 64 20 3a 3d 20 72 61 | 6e 64 6f 6d 3b 0d 09 09 |ed := ra|ndom;...|
|000004b0| 09 67 72 65 65 6e 20 3a | 3d 20 72 61 6e 64 6f 6d |.green :|= random|
|000004c0| 3b 0d 09 09 09 62 6c 75 | 65 20 3a 3d 20 72 61 6e |;....blu|e := ran|
|000004d0| 64 6f 6d 3b 0d 09 09 45 | 4e 44 3b 0d 09 09 6e 75 |dom;...E|ND;...nu|
|000004e0| 6d 74 6f 73 74 72 69 6e | 67 28 72 61 6e 64 6f 6d |mtostrin|g(random|
|000004f0| 2c 20 69 64 29 3b 0d 09 | 09 46 4f 52 20 69 20 3a |, id);..|.FOR i :|
|00000500| 3d 20 31 20 54 4f 20 6e | 72 44 61 74 61 20 44 4f |= 1 TO n|rData DO|
|00000510| 0d 09 09 64 61 74 61 5b | 69 5d 20 3a 3d 20 72 61 |...data[|i] := ra|
|00000520| 6e 64 6f 6d 3b 0d 09 09 | 73 6f 72 74 65 64 3a 3d |ndom;...|sorted:=|
|00000530| 66 61 6c 73 65 3b 0d 09 | 45 4e 44 3b 0d 45 4e 44 |false;..|END;.END|
|00000540| 3b 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 43 75 72 53 |;..FUNCT|ION CurS|
|00000550| 74 61 74 3a 65 78 74 65 | 6e 64 65 64 3b 0d 56 41 |tat:exte|nded;.VA|
|00000560| 52 20 74 65 6d 70 76 61 | 6c 3a 65 78 74 65 6e 64 |R tempva|l:extend|
|00000570| 65 64 3b 0d 42 45 47 49 | 4e 0d 09 49 46 20 74 6f |ed;.BEGI|N..IF to|
|00000580| 79 72 65 63 3d 4e 49 4c | 20 54 48 45 4e 20 43 75 |yrec=NIL| THEN Cu|
|00000590| 72 53 74 61 74 3a 3d 30 | 0d 09 45 4c 53 45 20 57 |rStat:=0|..ELSE W|
|000005a0| 49 54 48 20 54 6f 79 52 | 65 63 5e 20 44 4f 20 42 |ITH ToyR|ec^ DO B|
|000005b0| 45 47 49 4e 0d 09 09 74 | 65 6d 70 76 61 6c 3a 3d |EGIN...t|empval:=|
|000005c0| 28 6d 61 78 76 61 6c 2d | 6d 69 6e 76 61 6c 29 2f |(maxval-|minval)/|
|000005d0| 73 71 72 74 28 73 73 71 | 29 3b 0d 09 09 49 46 20 |sqrt(ssq|);...IF |
|000005e0| 28 43 6c 61 73 73 45 78 | 74 65 6e 64 65 64 28 74 |(ClassEx|tended(t|
|000005f0| 65 6d 70 76 61 6c 29 20 | 49 4e 20 5b 53 4e 41 4e |empval) |IN [SNAN|
|00000600| 2c 51 4e 41 4e 2c 49 6e | 66 69 6e 69 74 65 5d 29 |,QNAN,In|finite])|
|00000610| 20 54 48 45 4e 20 20 53 | 79 73 42 72 65 61 6b 53 | THEN  S|ysBreakS|
|00000620| 74 72 28 27 62 61 64 20 | 43 75 72 53 74 61 74 20 |tr('bad |CurStat |
|00000630| 76 61 6c 75 65 27 29 3b | 0d 09 09 43 75 72 53 74 |value');|...CurSt|
|00000640| 61 74 3a 3d 74 65 6d 70 | 76 61 6c 3b 0d 09 45 4e |at:=temp|val;..EN|
|00000650| 44 3b 0d 45 4e 44 3b 0d | 0d 50 52 4f 43 45 44 55 |D;.END;.|.PROCEDU|
|00000660| 52 45 20 67 65 74 73 74 | 61 74 3b 0d 56 41 52 20 |RE getst|at;.VAR |
|00000670| 73 74 61 74 3a 74 53 74 | 61 74 54 79 70 65 3b 0d |stat:tSt|atType;.|
|00000680| 09 69 3a 69 6e 74 65 67 | 65 72 3b 0d 42 45 47 49 |.i:integ|er;.BEGI|
|00000690| 4e 0d 09 69 6e 69 74 53 | 74 61 74 28 73 74 61 74 |N..initS|tat(stat|
|000006a0| 2c 27 27 29 3b 0d 09 49 | 46 20 54 6f 79 52 65 63 |,'');..I|F ToyRec|
|000006b0| 3c 3e 4e 49 4c 20 54 48 | 45 4e 0d 09 57 49 54 48 |<>NIL TH|EN..WITH|
|000006c0| 20 54 6f 79 52 65 63 5e | 20 44 4f 20 42 45 47 49 | ToyRec^| DO BEGI|
|000006d0| 4e 0d 09 09 46 4f 52 20 | 69 20 3a 3d 20 31 20 54 |N...FOR |i := 1 T|
|000006e0| 4f 20 6e 72 44 61 74 61 | 20 44 4f 0d 09 09 61 64 |O nrData| DO...ad|
|000006f0| 64 73 74 61 74 28 64 61 | 74 61 5b 69 5d 2c 73 74 |dstat(da|ta[i],st|
|00000700| 61 74 29 3b 0d 09 09 6d | 69 6e 76 61 6c 3a 3d 73 |at);...m|inval:=s|
|00000710| 74 61 74 2e 6d 69 6e 3b | 0d 09 09 6d 61 78 76 61 |tat.min;|...maxva|
|00000720| 6c 3a 3d 73 74 61 74 2e | 6d 61 78 3b 0d 09 09 6d |l:=stat.|max;...m|
|00000730| 65 61 6e 3a 3d 73 74 61 | 74 2e 6d 65 61 6e 3b 0d |ean:=sta|t.mean;.|
|00000740| 09 09 73 73 71 3a 3d 73 | 74 61 74 2e 73 73 71 3b |..ssq:=s|tat.ssq;|
|00000750| 0d 09 45 4e 44 3b 0d 45 | 4e 44 3b 0d 0d 50 52 4f |..END;.E|ND;..PRO|
|00000760| 43 45 44 55 52 45 20 74 | 54 6f 79 5f 6e 65 78 74 |CEDURE t|Toy_next|
|00000770| 54 6f 79 28 47 65 6e 65 | 72 61 74 6f 72 3a 6c 6f |Toy(Gene|rator:lo|
|00000780| 6e 67 69 6e 74 3b 63 6f | 75 6e 74 3a 69 6e 74 65 |ngint;co|unt:inte|
|00000790| 67 65 72 3b 56 41 52 20 | 54 6f 79 53 74 61 74 3a |ger;VAR |ToyStat:|
|000007a0| 65 78 74 65 6e 64 65 64 | 29 3b 0d 0d 7b 24 49 46 |extended|);..{$IF|
|000007b0| 43 20 66 61 6c 73 65 7d | 0d 4d 50 57 20 50 61 73 |C false}|.MPW Pas|
|000007c0| 63 61 6c 20 64 6f 65 73 | 20 6e 6f 74 20 75 6e 64 |cal does| not und|
|000007d0| 65 72 73 74 61 6e 64 20 | 74 79 70 65 20 63 61 73 |erstand |type cas|
|000007e0| 74 69 6e 67 20 69 6e 20 | 43 4f 4e 53 54 20 63 6c |ting in |CONST cl|
|000007f0| 61 75 73 65 3a 0d 0d 43 | 4f 4e 53 54 20 63 55 4e |ause:..C|ONST cUN|
|00000800| 49 46 3d 6c 6f 6e 67 69 | 6e 74 28 27 55 4e 49 46 |IF=longi|nt('UNIF|
|00000810| 27 29 3b 0d 23 20 20 20 | 20 20 20 20 20 20 20 20 |');.#   |        |
|00000820| 20 20 20 20 20 20 20 3f | 20 20 20 20 20 20 20 20 |       ?|        |
|00000830| 20 20 0d 23 23 23 20 70 | 61 73 63 61 6c 20 2d 20 |  .### p|ascal - |
|00000840| 45 72 72 6f 72 20 31 30 | 31 20 49 64 65 6e 74 69 |Error 10|1 Identi|
|00000850| 66 69 65 72 20 6e 6f 74 | 20 6f 66 20 74 68 65 20 |fier not| of the |
|00000860| 61 70 70 72 6f 70 72 69 | 61 74 65 20 63 6c 61 73 |appropri|ate clas|
|00000870| 73 0d 23 23 23 20 45 72 | 72 6f 72 20 31 30 32 20 |s.### Er|ror 102 |
|00000880| 49 64 65 6e 74 69 66 69 | 65 72 20 6e 6f 74 20 64 |Identifi|er not d|
|00000890| 65 63 6c 61 72 65 64 0d | 23 20 20 20 20 20 20 20 |eclared.|#       |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3f 20 20 20 |        |    ?   |
|000008b0| 20 20 20 20 20 20 0d 23 | 23 23 20 45 72 72 6f 72 |      .#|## Error|
|000008c0| 20 32 30 20 49 6c 6c 65 | 67 61 6c 20 73 79 6d 62 | 20 Ille|gal symb|
|000008d0| 6f 6c 0d 23 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ol.#----|--------|
|000008e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000950| 2d 2d 2d 2d 0d 20 20 20 | 20 46 69 6c 65 20 22 55 |----.   | File "U|
|00000960| 54 6f 79 2e 70 22 3b 20 | 4c 69 6e 65 20 38 36 0d |Toy.p"; |Line 86.|
|00000970| 23 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |#-------|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 0d 23 23 23 20 4d 50 | 57 20 53 68 65 6c 6c 20 |-.### MP|W Shell |
|00000a00| 28 33 2e 33 29 20 2d 20 | 45 78 65 63 75 74 69 6f |(3.3) - |Executio|
|00000a10| 6e 20 6f 66 20 42 75 69 | 6c 64 50 72 6f 67 72 61 |n of Bui|ldProgra|
|00000a20| 6d 20 74 65 72 6d 69 6e | 61 74 65 64 2e 0d 7b 24 |m termin|ated..{$|
|00000a30| 45 4e 44 43 7d 0d 0d 56 | 41 52 0d 09 69 3a 20 69 |ENDC}..V|AR..i: i|
|00000a40| 6e 74 65 67 65 72 3b 0d | 09 75 31 2c 75 32 2c 6c |nteger;.|.u1,u2,l|
|00000a50| 2c 78 3a 65 78 74 65 6e | 64 65 64 3b 0d 42 45 47 |,x:exten|ded;.BEG|
|00000a60| 49 4e 0d 09 49 46 20 54 | 6f 79 52 65 63 3c 3e 4e |IN..IF T|oyRec<>N|
|00000a70| 49 4c 20 54 48 45 4e 0d | 09 57 49 54 48 20 54 6f |IL THEN.|.WITH To|
|00000a80| 79 52 65 63 5e 20 44 4f | 20 42 45 47 49 4e 0d 09 |yRec^ DO| BEGIN..|
|00000a90| 09 49 46 20 63 6f 75 6e | 74 20 3c 20 63 4d 61 78 |.IF coun|t < cMax|
|00000aa0| 54 6f 79 44 61 74 61 20 | 54 48 45 4e 20 6e 72 44 |ToyData |THEN nrD|
|00000ab0| 61 74 61 3a 3d 63 6f 75 | 6e 74 0d 09 09 45 4c 53 |ata:=cou|nt...ELS|
|00000ac0| 45 20 63 6f 75 6e 74 3a | 3d 63 4d 61 78 54 6f 79 |E count:|=cMaxToy|
|00000ad0| 44 61 74 61 3b 0d 0d 7b | 24 49 46 43 20 46 61 6c |Data;..{|$IFC Fal|
|00000ae0| 73 65 7d 0d 7b 4d 50 57 | 20 50 61 73 63 61 6c 20 |se}.{MPW| Pascal |
|00000af0| 63 61 6e 6e 6f 74 20 68 | 61 6e 64 6c 65 20 74 79 |cannot h|andle ty|
|00000b00| 70 65 63 61 73 74 69 6e | 67 20 69 6e 20 63 61 73 |pecastin|g in cas|
|00000b10| 65 20 73 74 61 74 65 6d | 65 6e 74 73 2e 20 53 6f |e statem|ents. So|
|00000b20| 20 77 65 0d 68 61 76 65 | 20 74 6f 20 75 73 65 20 | we.have| to use |
|00000b30| 61 20 63 68 61 69 6e 20 | 6f 66 20 69 66 2d 73 74 |a chain |of if-st|
|00000b40| 61 74 65 6d 65 6e 74 73 | 7d 0d 0d 09 09 63 61 73 |atements|}....cas|
|00000b50| 65 20 47 65 6e 65 72 61 | 74 6f 72 20 6f 66 0d 09 |e Genera|tor of..|
|00000b60| 09 6c 6f 6e 67 69 6e 74 | 28 27 55 4e 49 46 27 29 |.longint|('UNIF')|
|00000b70| 20 3a 2e 2e 2e 3b 0d 23 | 23 23 20 70 61 73 63 61 | :...;.#|## pasca|
|00000b80| 6c 20 2d 20 45 72 72 6f | 72 20 31 30 31 20 49 64 |l - Erro|r 101 Id|
|00000b90| 65 6e 74 69 66 69 65 72 | 20 6e 6f 74 20 6f 66 20 |entifier| not of |
|00000ba0| 74 68 65 20 61 70 70 72 | 6f 70 72 69 61 74 65 20 |the appr|opriate |
|00000bb0| 63 6c 61 73 73 0d 23 23 | 23 20 45 72 72 6f 72 20 |class.##|# Error |
|00000bc0| 31 30 32 20 49 64 65 6e | 74 69 66 69 65 72 20 6e |102 Iden|tifier n|
|00000bd0| 6f 74 20 64 65 63 6c 61 | 72 65 64 0d 23 09 09 20 |ot decla|red.#.. |
|00000be0| 20 20 20 20 20 20 3f 20 | 20 20 20 20 20 20 20 20 |      ? |        |
|00000bf0| 20 20 0d 23 23 23 20 45 | 72 72 6f 72 20 32 30 20 |  .### E|rror 20 |
|00000c00| 49 6c 6c 65 67 61 6c 20 | 73 79 6d 62 6f 6c 0d 23 |Illegal |symbol.#|
|00000c10| 09 09 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000c20| 20 20 3f 20 20 0d 23 23 | 23 20 45 72 72 6f 72 20 |  ?  .##|# Error |
|00000c30| 31 34 32 20 4c 61 62 65 | 6c 20 74 79 70 65 20 69 |142 Labe|l type i|
|00000c40| 6e 63 6f 6d 70 61 74 69 | 62 6c 65 20 77 69 74 68 |ncompati|ble with|
|00000c50| 20 73 65 6c 65 63 74 69 | 6e 67 20 65 78 70 72 65 | selecti|ng expre|
|00000c60| 73 73 69 6f 6e 0d 0d 09 | 09 6c 6f 6e 67 69 6e 74 |ssion...|.longint|
|00000c70| 28 27 47 41 55 53 27 29 | 20 3a 2e 2e 2e 3b 0d 09 |('GAUS')| :...;..|
|00000c80| 09 6c 6f 6e 67 69 6e 74 | 28 27 43 63 68 79 27 29 |.longint|('Cchy')|
|00000c90| 20 3a 2e 2e 2e 3b 0d 09 | 09 65 6e 64 3b 0d 7b 24 | :...;..|.end;.{$|
|00000ca0| 45 4e 44 43 7d 0d 0d 09 | 09 49 46 20 47 65 6e 65 |ENDC}...|.IF Gene|
|00000cb0| 72 61 74 6f 72 20 3d 6c | 6f 6e 67 69 6e 74 28 27 |rator =l|ongint('|
|00000cc0| 55 4e 49 46 27 29 20 54 | 48 45 4e 20 7b 75 6e 69 |UNIF') T|HEN {uni|
|00000cd0| 66 6f 72 6d 20 64 69 73 | 74 72 69 62 75 74 69 6f |form dis|tributio|
|00000ce0| 6e 20 6f 6e 20 2d 4d 61 | 78 4c 6f 6e 67 49 6e 74 |n on -Ma|xLongInt|
|00000cf0| 2e 2e 2e 4d 61 78 4c 6f | 6e 67 49 6e 74 7d 0d 09 |...MaxLo|ngInt}..|
|00000d00| 09 42 45 47 49 4e 0d 09 | 09 09 46 4f 52 20 69 20 |.BEGIN..|..FOR i |
|00000d10| 3a 3d 20 31 20 54 4f 20 | 6e 72 44 61 74 61 20 44 |:= 1 TO |nrData D|
|00000d20| 4f 20 42 45 47 49 4e 0d | 09 09 09 09 64 61 74 61 |O BEGIN.|....data|
|00000d30| 5b 69 5d 20 3a 3d 20 72 | 6f 75 6e 64 28 72 61 6e |[i] := r|ound(ran|
|00000d40| 64 6f 6d 58 28 54 6f 79 | 53 65 65 64 29 29 3b 0d |domX(Toy|Seed));.|
|00000d50| 09 09 09 45 4e 44 3b 0d | 09 09 09 73 6f 72 74 65 |...END;.|...sorte|
|00000d60| 64 3a 3d 66 61 6c 73 65 | 3b 0d 09 09 45 4e 44 20 |d:=false|;...END |
|00000d70| 45 4c 53 45 0d 09 09 49 | 46 20 47 65 6e 65 72 61 |ELSE...I|F Genera|
|00000d80| 74 6f 72 20 3d 6c 6f 6e | 67 69 6e 74 28 27 47 41 |tor =lon|gint('GA|
|00000d90| 55 53 27 29 20 54 48 45 | 4e 20 7b 73 74 61 6e 64 |US') THE|N {stand|
|00000da0| 61 72 64 20 67 61 75 73 | 73 69 61 6e 20 28 6e 6f |ard gaus|sian (no|
|00000db0| 72 6d 61 6c 29 20 64 69 | 73 74 72 69 62 75 74 69 |rmal) di|stributi|
|00000dc0| 6f 6e 7d 0d 09 09 42 45 | 47 49 4e 0d 09 09 09 46 |on}...BE|GIN....F|
|00000dd0| 4f 52 20 69 20 3a 3d 20 | 31 20 54 4f 20 6e 72 44 |OR i := |1 TO nrD|
|00000de0| 61 74 61 20 44 49 56 20 | 32 20 44 4f 0d 09 09 09 |ata DIV |2 DO....|
|00000df0| 42 45 47 49 4e 20 0d 09 | 09 09 09 7b 67 65 74 20 |BEGIN ..|...{get |
|00000e00| 74 77 6f 20 55 28 30 2c | 31 29 20 72 61 6e 64 6f |two U(0,|1) rando|
|00000e10| 6d 20 6e 75 6d 62 65 72 | 73 7d 0d 09 09 09 09 75 |m number|s}.....u|
|00000e20| 31 3a 3d 28 28 72 6f 75 | 6e 64 28 72 61 6e 64 6f |1:=((rou|nd(rando|
|00000e30| 6d 58 28 54 6f 79 53 65 | 65 64 29 29 2f 6d 61 78 |mX(ToySe|ed))/max|
|00000e40| 6c 6f 6e 67 69 6e 74 29 | 20 2b 31 29 2f 32 3b 0d |longint)| +1)/2;.|
|00000e50| 09 09 09 09 75 32 3a 3d | 28 28 72 6f 75 6e 64 28 |....u2:=|((round(|
|00000e60| 72 61 6e 64 6f 6d 58 28 | 54 6f 79 53 65 65 64 29 |randomX(|ToySeed)|
|00000e70| 29 2f 6d 61 78 6c 6f 6e | 67 69 6e 74 29 20 2b 31 |)/maxlon|gint) +1|
|00000e80| 29 2f 32 3b 0d 09 09 09 | 09 6c 3a 3d 73 71 72 74 |)/2;....|.l:=sqrt|
|00000e90| 28 2d 32 20 2a 20 6c 6e | 28 75 31 29 29 3b 0d 09 |(-2 * ln|(u1));..|
|00000ea0| 09 09 09 64 61 74 61 5b | 69 5d 20 3a 3d 20 6c 20 |...data[|i] := l |
|00000eb0| 2a 20 63 6f 73 28 32 20 | 2a 20 70 69 20 2a 20 75 |* cos(2 |* pi * u|
|00000ec0| 32 29 3b 0d 09 09 09 09 | 64 61 74 61 5b 6e 72 44 |2);.....|data[nrD|
|00000ed0| 61 74 61 2b 31 2d 69 5d | 20 3a 3d 20 6c 20 2a 20 |ata+1-i]| := l * |
|00000ee0| 73 69 6e 28 32 20 2a 20 | 70 69 20 2a 20 75 32 29 |sin(2 * |pi * u2)|
|00000ef0| 3b 0d 09 09 09 45 4e 44 | 3b 0d 09 09 09 73 6f 72 |;....END|;....sor|
|00000f00| 74 65 64 3a 3d 66 61 6c | 73 65 3b 0d 09 09 45 4e |ted:=fal|se;...EN|
|00000f10| 44 20 45 4c 53 45 0d 09 | 09 49 46 20 47 65 6e 65 |D ELSE..|.IF Gene|
|00000f20| 72 61 74 6f 72 20 3d 6c | 6f 6e 67 69 6e 74 28 27 |rator =l|ongint('|
|00000f30| 43 63 68 79 27 29 20 54 | 48 45 4e 20 7b 63 61 75 |Cchy') T|HEN {cau|
|00000f40| 63 68 79 20 64 69 73 74 | 72 69 62 75 74 69 6f 6e |chy dist|ribution|
|00000f50| 7d 0d 09 09 42 45 47 49 | 4e 0d 09 09 09 46 4f 52 |}...BEGI|N....FOR|
|00000f60| 20 69 20 3a 3d 20 31 20 | 54 4f 20 6e 72 44 61 74 | i := 1 |TO nrDat|
|00000f70| 61 20 44 4f 20 42 45 47 | 49 4e 0d 09 09 09 09 52 |a DO BEG|IN.....R|
|00000f80| 45 50 45 41 54 0d 09 09 | 09 09 09 78 20 3a 3d 20 |EPEAT...|...x := |
|00000f90| 70 69 20 2a 20 28 28 28 | 28 72 6f 75 6e 64 28 72 |pi * (((|(round(r|
|00000fa0| 61 6e 64 6f 6d 58 28 54 | 6f 79 53 65 65 64 29 29 |andomX(T|oySeed))|
|00000fb0| 20 2f 20 6d 61 78 6c 6f | 6e 67 69 6e 74 29 20 2b | / maxlo|ngint) +|
|00000fc0| 20 31 29 20 2f 20 32 29 | 20 2d 20 30 2e 35 29 3b | 1) / 2)| - 0.5);|
|00000fd0| 0d 09 09 09 09 09 64 61 | 74 61 5b 69 5d 20 3a 3d |......da|ta[i] :=|
|00000fe0| 20 73 69 6e 28 78 29 20 | 2f 20 63 6f 73 28 78 29 | sin(x) |/ cos(x)|
|00000ff0| 3b 7b 6d 61 79 20 72 75 | 6e 20 69 6e 74 6f 20 63 |;{may ru|n into c|
|00001000| 6f 73 28 78 29 3d 30 21 | 7d 0d 09 09 09 09 55 4e |os(x)=0!|}.....UN|
|00001010| 54 49 4c 20 09 4e 4f 54 | 20 28 43 6c 61 73 73 45 |TIL .NOT| (ClassE|
|00001020| 78 74 65 6e 64 65 64 28 | 64 61 74 61 5b 69 5d 29 |xtended(|data[i])|
|00001030| 20 49 4e 20 5b 53 4e 41 | 4e 2c 51 4e 41 4e 2c 49 | IN [SNA|N,QNAN,I|
|00001040| 6e 66 69 6e 69 74 65 5d | 29 20 3b 0d 09 09 09 45 |nfinite]|) ;....E|
|00001050| 4e 44 3b 0d 09 09 09 73 | 6f 72 74 65 64 3a 3d 66 |ND;....s|orted:=f|
|00001060| 61 6c 73 65 3b 0d 09 09 | 45 4e 44 20 45 4c 53 45 |alse;...|END ELSE|
|00001070| 20 44 65 62 75 67 73 74 | 72 28 27 47 65 6e 65 72 | Debugst|r('Gener|
|00001080| 61 74 6f 72 20 55 6e 6b | 6e 6f 77 6e 27 29 20 7b |ator Unk|nown') {|
|00001090| 4e 6f 6f 70 20 26 20 63 | 72 61 73 68 20 69 66 20 |Noop & c|rash if |
|000010a0| 47 65 6e 65 72 61 74 6f | 72 20 75 6e 6b 6e 6f 77 |Generato|r unknow|
|000010b0| 6e 7d 20 3b 0d 09 09 67 | 65 74 73 74 61 74 3b 0d |n} ;...g|etstat;.|
|000010c0| 09 09 74 65 73 74 5f 73 | 74 61 74 3a 3d 43 75 72 |..test_s|tat:=Cur|
|000010d0| 53 74 61 74 3b 0d 09 09 | 54 6f 79 53 74 61 74 3a |Stat;...|ToyStat:|
|000010e0| 3d 74 65 73 74 5f 73 74 | 61 74 3b 0d 0d 09 45 4e |=test_st|at;...EN|
|000010f0| 44 20 45 4c 53 45 20 54 | 6f 79 53 74 61 74 3a 3d |D ELSE T|oyStat:=|
|00001100| 30 3b 0d 45 4e 44 3b 0d | 0d 0d 50 52 4f 43 45 44 |0;.END;.|..PROCED|
|00001110| 55 52 45 20 74 54 6f 79 | 5f 53 6f 72 74 54 6f 79 |URE tToy|_SortToy|
|00001120| 3b 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 71 75 69 |;..PROCE|DURE qui|
|00001130| 63 6b 73 6f 72 74 28 63 | 6f 75 6e 74 3a 69 6e 74 |cksort(c|ount:int|
|00001140| 65 67 65 72 29 3b 0d 09 | 7b 73 6f 72 74 20 61 72 |eger);..|{sort ar|
|00001150| 72 61 79 20 61 20 62 79 | 20 6b 65 79 2e 20 63 6f |ray a by| key. co|
|00001160| 75 6e 74 20 69 73 20 6e | 72 20 6f 66 20 75 73 65 |unt is n|r of use|
|00001170| 64 20 65 6e 74 72 69 65 | 73 20 69 6e 20 61 20 7d |d entrie|s in a }|
|00001180| 0d 0d 56 41 52 20 69 3a | 69 6e 74 65 67 65 72 3b |..VAR i:|integer;|
|00001190| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 73 6f 72 74 |..PROCED|URE sort|
|000011a0| 28 6c 2c 72 3a 69 6e 74 | 65 67 65 72 29 3b 0d 56 |(l,r:int|eger);.V|
|000011b0| 41 52 20 69 2c 6a 09 3a | 20 69 6e 74 65 67 65 72 |AR i,j.:| integer|
|000011c0| 3b 0d 09 78 2c 77 09 3a | 20 72 65 61 6c 3b 0d 0d |;..x,w.:| real;..|
|000011d0| 42 45 47 49 4e 20 0d 09 | 57 49 54 48 20 54 6f 79 |BEGIN ..|WITH Toy|
|000011e0| 52 65 63 5e 20 44 4f 20 | 42 45 47 49 4e 0d 09 09 |Rec^ DO |BEGIN...|
|000011f0| 69 09 3a 3d 20 6c 3b 20 | 6a 09 3a 3d 20 72 3b 0d |i.:= l; |j.:= r;.|
|00001200| 09 09 78 09 3a 3d 20 64 | 61 74 61 28 2e 28 6c 2b |..x.:= d|ata(.(l+|
|00001210| 72 29 20 44 49 56 09 32 | 2e 29 3b 0d 09 09 52 45 |r) DIV.2|.);...RE|
|00001220| 50 45 41 54 0d 09 09 09 | 57 48 49 4c 45 20 64 61 |PEAT....|WHILE da|
|00001230| 74 61 28 2e 69 2e 29 20 | 3c 20 78 20 44 4f 20 69 |ta(.i.) |< x DO i|
|00001240| 20 3a 3d 20 69 20 2b 20 | 31 3b 0d 09 09 09 57 48 | := i + |1;....WH|
|00001250| 49 4c 45 20 78 20 3c 20 | 64 61 74 61 28 2e 6a 2e |ILE x < |data(.j.|
|00001260| 29 20 44 4f 20 6a 20 3a | 3d 20 6a 20 2d 20 31 3b |) DO j :|= j - 1;|
|00001270| 0d 09 09 09 49 46 20 69 | 20 3c 3d 20 6a 20 54 48 |....IF i| <= j TH|
|00001280| 45 4e 0d 09 09 09 42 45 | 47 49 4e 20 77 20 3a 3d |EN....BE|GIN w :=|
|00001290| 20 64 61 74 61 28 2e 69 | 2e 29 3b 20 64 61 74 61 | data(.i|.); data|
|000012a0| 28 2e 69 2e 29 20 3a 3d | 20 64 61 74 61 28 2e 6a |(.i.) :=| data(.j|
|000012b0| 2e 29 3b 20 64 61 74 61 | 28 2e 6a 2e 29 20 3a 3d |.); data|(.j.) :=|
|000012c0| 09 77 3b 0d 09 09 09 09 | 69 20 3a 3d 20 69 20 2b |.w;.....|i := i +|
|000012d0| 09 31 3b 20 6a 20 3a 3d | 09 6a 20 2d 20 31 0d 09 |.1; j :=|.j - 1..|
|000012e0| 09 09 45 4e 44 0d 09 09 | 55 4e 54 49 4c 20 69 20 |..END...|UNTIL i |
|000012f0| 3e 09 6a 3b 0d 0d 09 09 | 49 46 20 6c 20 3c 20 6a |>.j;....|IF l < j|
|00001300| 20 54 48 45 4e 20 73 6f | 72 74 28 6c 2c 6a 29 3b | THEN so|rt(l,j);|
|00001310| 0d 09 09 49 46 20 69 20 | 3c 20 72 20 54 48 45 4e |...IF i |< r THEN|
|00001320| 20 73 6f 72 74 28 69 2c | 72 29 3b 0d 09 45 4e 44 | sort(i,|r);..END|
|00001330| 3b 0d 45 4e 44 3b 20 20 | 28 2a 20 73 6f 72 74 20 |;.END;  |(* sort |
|00001340| 2a 29 0d 0d 42 45 47 49 | 4e 20 73 6f 72 74 28 31 |*)..BEGI|N sort(1|
|00001350| 2c 63 6f 75 6e 74 29 3b | 0d 45 4e 44 3b 20 20 20 |,count);|.END;   |
|00001360| 28 2a 20 71 75 69 63 6b | 73 6f 72 74 20 2a 29 0d |(* quick|sort *).|
|00001370| 0d 0d 0d 42 45 47 49 4e | 0d 09 57 49 54 48 20 54 |...BEGIN|..WITH T|
|00001380| 6f 79 52 65 63 5e 20 44 | 4f 0d 09 49 46 20 4e 4f |oyRec^ D|O..IF NO|
|00001390| 54 20 73 6f 72 74 65 64 | 20 54 48 45 4e 20 42 45 |T sorted| THEN BE|
|000013a0| 47 49 4e 0d 09 09 71 75 | 69 63 6b 73 6f 72 74 28 |GIN...qu|icksort(|
|000013b0| 6e 72 44 61 74 61 29 3b | 0d 09 09 73 6f 72 74 65 |nrData);|...sorte|
|000013c0| 64 3a 3d 74 72 75 65 3b | 0d 09 45 4e 44 3b 0d 45 |d:=true;|..END;.E|
|000013d0| 4e 44 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 74 |ND;..PRO|CEDURE t|
|000013e0| 54 6f 79 5f 44 72 61 77 | 53 63 61 74 74 65 72 3b |Toy_Draw|Scatter;|
|000013f0| 0d 56 41 52 20 69 3a 69 | 6e 74 65 67 65 72 3b 0d |.VAR i:i|nteger;.|
|00001400| 09 76 61 6c 2c 72 61 6e | 67 65 2c 6d 69 6e 72 61 |.val,ran|ge,minra|
|00001410| 6e 67 65 3a 72 65 61 6c | 3b 0d 09 73 3a 73 74 72 |nge:real|;..s:str|
|00001420| 32 35 35 3b 0d 42 45 47 | 49 4e 0d 09 57 49 54 48 |255;.BEG|IN..WITH|
|00001430| 20 54 6f 79 52 65 63 5e | 20 44 4f 20 42 45 47 49 | ToyRec^| DO BEGI|
|00001440| 4e 0d 09 09 49 46 20 73 | 6f 72 74 65 64 20 54 48 |N...IF s|orted TH|
|00001450| 45 4e 20 42 45 47 49 4e | 0d 09 09 09 6d 69 6e 76 |EN BEGIN|....minv|
|00001460| 61 6c 3a 3d 64 61 74 61 | 5b 31 5d 3b 0d 09 09 09 |al:=data|[1];....|
|00001470| 6d 61 78 76 61 6c 3a 3d | 64 61 74 61 5b 6e 72 44 |maxval:=|data[nrD|
|00001480| 61 74 61 5d 3b 0d 09 09 | 45 4e 44 20 45 4c 53 45 |ata];...|END ELSE|
|00001490| 20 42 45 47 49 4e 0d 09 | 09 09 6d 69 6e 76 61 6c | BEGIN..|..minval|
|000014a0| 3a 3d 6d 61 78 69 6e 74 | 3b 0d 09 09 09 6d 61 78 |:=maxint|;....max|
|000014b0| 76 61 6c 3a 3d 2d 6d 61 | 78 69 6e 74 2d 31 3b 0d |val:=-ma|xint-1;.|
|000014c0| 09 09 09 57 49 54 48 20 | 54 6f 79 52 65 63 5e 20 |...WITH |ToyRec^ |
|000014d0| 44 4f 20 46 4f 52 20 69 | 3a 3d 31 20 54 4f 20 6e |DO FOR i|:=1 TO n|
|000014e0| 72 44 61 74 61 20 44 4f | 20 42 45 47 49 4e 20 0d |rData DO| BEGIN .|
|000014f0| 09 09 09 09 49 46 20 64 | 61 74 61 5b 69 5d 3c 6d |....IF d|ata[i]<m|
|00001500| 69 6e 76 61 6c 20 54 48 | 45 4e 20 6d 69 6e 76 61 |inval TH|EN minva|
|00001510| 6c 3a 3d 64 61 74 61 5b | 69 5d 3b 0d 09 09 09 09 |l:=data[|i];.....|
|00001520| 49 46 20 64 61 74 61 5b | 69 5d 3e 3d 6d 61 78 76 |IF data[|i]>=maxv|
|00001530| 61 6c 20 54 48 45 4e 20 | 6d 61 78 76 61 6c 3a 3d |al THEN |maxval:=|
|00001540| 64 61 74 61 5b 69 5d 3b | 0d 09 09 09 45 4e 44 3b |data[i];|....END;|
|00001550| 0d 09 09 45 4e 44 3b 0d | 09 09 72 61 6e 67 65 3a |...END;.|..range:|
|00001560| 3d 6d 61 78 76 61 6c 3b | 72 61 6e 67 65 3a 3d 72 |=maxval;|range:=r|
|00001570| 61 6e 67 65 2d 6d 69 6e | 76 61 6c 3b 49 46 20 72 |ange-min|val;IF r|
|00001580| 61 6e 67 65 3d 30 20 54 | 48 45 4e 20 72 61 6e 67 |ange=0 T|HEN rang|
|00001590| 65 3a 3d 31 3b 0d 09 09 | 6d 69 6e 72 61 6e 67 65 |e:=1;...|minrange|
|000015a0| 3a 3d 6d 69 6e 76 61 6c | 2d 30 2e 31 2a 72 61 6e |:=minval|-0.1*ran|
|000015b0| 67 65 3b 0d 09 09 72 61 | 6e 67 65 3a 3d 33 30 30 |ge;...ra|nge:=300|
|000015c0| 2f 28 72 61 6e 67 65 2a | 31 2e 32 29 3b 0d 09 09 |/(range*|1.2);...|
|000015d0| 6e 75 6d 74 6f 73 74 72 | 69 6e 67 28 72 6f 75 6e |numtostr|ing(roun|
|000015e0| 64 28 72 61 6e 67 65 29 | 2c 73 29 3b 0d 0d 0d 09 |d(range)|,s);....|
|000015f0| 09 46 4f 52 20 69 20 3a | 3d 20 31 20 54 4f 20 6e |.FOR i :|= 1 TO n|
|00001600| 72 44 61 74 61 20 44 4f | 20 42 45 47 49 4e 0d 09 |rData DO| BEGIN..|
|00001610| 09 09 76 61 6c 3a 3d 28 | 64 61 74 61 5b 69 5d 2d |..val:=(|data[i]-|
|00001620| 6d 69 6e 72 61 6e 67 65 | 29 2a 72 61 6e 67 65 3b |minrange|)*range;|
|00001630| 0d 09 09 09 6d 6f 76 65 | 74 6f 28 72 6f 75 6e 64 |....move|to(round|
|00001640| 28 76 61 6c 29 2c 20 31 | 30 29 3b 0d 09 09 09 6c |(val), 1|0);....l|
|00001650| 69 6e 65 28 30 2c 20 38 | 30 29 3b 0d 09 09 45 4e |ine(0, 8|0);...EN|
|00001660| 44 3b 0d 09 45 4e 44 3b | 0d 45 4e 44 3b 0d 0d 46 |D;..END;|.END;..F|
|00001670| 55 4e 43 54 49 4f 4e 20 | 74 54 6f 79 5f 64 72 61 |UNCTION |tToy_dra|
|00001680| 77 74 6f 79 28 50 52 4f | 43 45 44 55 52 45 20 44 |wtoy(PRO|CEDURE D|
|00001690| 72 61 77 57 68 61 74 54 | 6f 44 72 61 77 29 3a 20 |rawWhatT|oDraw): |
|000016a0| 50 69 63 48 61 6e 64 6c | 65 3b 0d 56 41 52 0d 09 |PicHandl|e;.VAR..|
|000016b0| 6d 79 66 72 61 6d 65 3a | 20 72 65 63 74 3b 0d 09 |myframe:| rect;..|
|000016c0| 70 3a 20 50 69 63 48 61 | 6e 64 6c 65 3b 0d 09 69 |p: PicHa|ndle;..i|
|000016d0| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 6f 6c 64 43 |: intege|r;..oldC|
|000016e0| 6f 6c 3a 20 52 47 42 43 | 6f 6c 6f 72 3b 0d 09 76 |ol: RGBC|olor;..v|
|000016f0| 61 6c 3a 72 65 61 6c 3b | 0d 09 6d 69 6e 72 61 6e |al:real;|..minran|
|00001700| 67 65 2c 72 61 6e 67 65 | 3a 72 65 61 6c 3b 0d 09 |ge,range|:real;..|
|00001710| 6d 69 6e 76 61 6c 2c 6d | 61 78 76 61 6c 3a 69 6e |minval,m|axval:in|
|00001720| 74 65 67 65 72 3b 73 3a | 73 74 72 32 35 35 3b 0d |teger;s:|str255;.|
|00001730| 42 45 47 49 4e 0d 09 49 | 46 20 54 6f 79 52 65 63 |BEGIN..I|F ToyRec|
|00001740| 3d 4e 49 4c 20 54 48 45 | 4e 20 74 54 6f 79 5f 64 |=NIL THE|N tToy_d|
|00001750| 72 61 77 74 6f 79 3a 3d | 4e 49 4c 20 45 4c 53 45 |rawtoy:=|NIL ELSE|
|00001760| 20 42 45 47 49 4e 0d 0d | 0d 09 09 47 65 74 46 6f | BEGIN..|...GetFo|
|00001770| 72 65 43 6f 6c 6f 72 28 | 4f 6c 64 43 6f 6c 29 3b |reColor(|OldCol);|
|00001780| 0d 09 09 52 47 42 46 6f | 72 65 43 6f 6c 6f 72 28 |...RGBFo|reColor(|
|00001790| 54 6f 79 52 65 63 5e 2e | 63 6f 6c 29 3b 0d 09 09 |ToyRec^.|col);...|
|000017a0| 73 65 74 72 65 63 74 28 | 6d 79 46 72 61 6d 65 2c |setrect(|myFrame,|
|000017b0| 20 30 2c 20 30 2c 20 54 | 6f 79 52 65 63 5e 2e 6e | 0, 0, T|oyRec^.n|
|000017c0| 72 44 61 74 61 2c 20 31 | 30 30 29 3b 0d 09 09 50 |rData, 1|00);...P|
|000017d0| 20 3a 3d 20 4f 70 65 6e | 50 69 63 74 75 72 65 28 | := Open|Picture(|
|000017e0| 6d 79 66 72 61 6d 65 29 | 3b 0d 0d 09 09 44 72 61 |myframe)|;....Dra|
|000017f0| 77 57 68 61 74 54 6f 44 | 72 61 77 3b 0d 0d 09 09 |wWhatToD|raw;....|
|00001800| 43 6c 6f 73 65 50 69 63 | 74 75 72 65 3b 0d 09 09 |ClosePic|ture;...|
|00001810| 52 47 42 46 6f 72 65 43 | 6f 6c 6f 72 28 4f 6c 64 |RGBForeC|olor(Old|
|00001820| 63 6f 6c 29 3b 0d 09 09 | 74 54 6f 79 5f 64 72 61 |col);...|tToy_dra|
|00001830| 77 74 6f 79 20 3a 3d 20 | 70 3b 0d 09 45 4e 44 3b |wtoy := |p;..END;|
|00001840| 7b 3c 3e 6e 69 6c 7d 0d | 45 4e 44 3b 0d 45 4e 44 |{<>nil}.|END;.END|
|00001850| 2e 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 00 01 00 00 00 01 9d | 00 00 00 9d 00 00 00 52 |........|.......R|
|00001890| e1 ff ff 20 00 3f bb 00 | 00 00 00 c1 e2 ff ff 20 |... .?..|....... |
|000018a0| 00 46 c7 00 00 00 00 c1 | e3 ff ff 20 00 4d d3 00 |.F......|... .M..|
|000018b0| 06 55 54 6f 79 2e 70 b4 | 02 00 00 00 54 45 58 54 |.UToy.p.|....TEXT|
|000018c0| 4d 50 53 20 01 00 ff ff | ff ff 00 00 00 00 15 8e |MPS ....|........|
|000018d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 a3 ba 01 c0 00 00 | 17 d1 00 00 01 ef ff 20 |........|....... |
|00001900| 00 56 10 00 00 00 00 c1 | e0 ff ff 00 00 50 10 00 |.V......|.....P..|
|00001910| 00 60 a0 c1 e0 ff ff 20 | 00 50 1c 00 00 60 a8 c1 |.`..... |.P...`..|
|00001920| e0 ff ff 00 00 50 2e 00 | 0e fe 44 c1 e0 ff ff 00 |.....P..|..D.....|
|00001930| 00 50 87 00 00 00 00 00 | 00 ff ff 00 00 50 b1 00 |.P......|.....P..|
|00001940| 00 00 00 c1 e0 ff ff 00 | 00 50 db 00 00 00 00 00 |........|.P......|
|00001950| 02 ff ff 20 00 5e 12 00 | 00 00 00 c1 e0 ff ff 00 |... .^..|........|
|00001960| 00 51 11 00 00 00 00 c1 | e0 ff ff 00 00 51 31 00 |.Q......|.....Q1.|
|00001970| 00 00 00 c1 e0 ff ff 00 | 00 51 3c 00 0e fe 40 c1 |........|.Q<...@.|
|00001980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 3b 0d 7b |...H..Mo|naco.;.{|
|00001990| a9 20 47 2e 20 53 61 77 | 69 74 7a 6b 69 2c 20 53 |. G. Saw|itzki, S|
|000019a0| 74 61 74 4c 61 62 00 06 | 00 04 00 2a 00 03 01 dd |tatLab..|...*....|
|000019b0| 02 7d 00 2a 00 03 01 6b | 01 3a a4 e5 b9 00 00 00 |.}.*...k|.:......|
|000019c0| 0f 30 00 00 0f 30 00 00 | 0e 44 01 00 00 00 00 1e |.0...0..|.D......|
|000019d0| 00 2a 00 03 01 dd 02 7d | 00 2a 00 03 01 6b 01 3a |.*.....}|.*...k.:|
|000019e0| 00 00 0e 44 00 00 00 00 | 00 00 00 00 00 00 00 00 |...D....|........|
|000019f0| 00 2b 01 23 80 00 00 00 | 05 31 2e 32 2e 33 1e 31 |.+.#....|.1.2.3.1|
|00001a00| 2e 32 2e 33 a9 31 39 39 | 31 54 68 65 20 4e 65 74 |.2.3.199|1The Net|
|00001a10| 57 6f 72 6b 20 50 72 6f | 6a 65 63 74 20 00 00 01 |Work Pro|ject ...|
|00001a20| 00 00 00 01 9d 00 00 00 | 9d 00 00 00 52 00 48 3c |........|....R.H<|
|00001a30| 78 08 d2 00 00 00 1c 00 | 52 00 01 4d 50 53 52 00 |x.......|R..MPSR.|
|00001a40| 01 00 12 76 65 72 73 00 | 00 00 2a 03 ed ff ff 00 |...vers.|..*.....|
|00001a50| 00 00 00 00 00 00 00 03 | f0 ff ff 00 00 00 4c 00 |........|......L.|
|00001a60| 00 00 00 00 02 ff ff 20 | 00 00 6e 00 48 39 3c 00 |....... |..n.H9<.|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+